home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
AMIGA
/
(A)G
/
(A)G10.ADF
/
BasicTimers
/
timer5sec
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1989-03-16
|
554b
|
27 lines
'60 SECOND TIMER
'5 x 12 sec intervals total 62 +- sec
CLS
PRINT "Time","5sec","1 min","PulsePerSec."
PRINT TIME$
STRT:
J$ = RIGHT$ (TIME$,1)
IF J$ = "0" OR J$ = "5" THEN CN
GOTO STRT
CN:
PRINT TIME$
FOR t=1 TO 12
FOR d = 1 TO 3200
b=b-STRIG(2)
NEXT d
PRINT TIME$,b,b*12"RPM",b/5 "Hz"
m=m+b
b = 0
NEXT t
PRINT m"RPM",,m/60 "Hz"
'SEE HOW MANY TIME$ HAVE ZEROES ON END
'REM DID WE USE ALL OF THE MINUTE?
'ANY BLANK LINES ABOVE ALTERS TIMING